home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 10, No. 08 (1989-08)(MindCraft Publishing)(Side A).zip
/
Nibble Volume 10, No. 08 (1989-08)(MindCraft Publishing)(Side A).po
/
MOVER.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
723b
|
12 lines
10 IF PEEK(104) < >64 THEN 63990: REM do only once
63989 END : REM don't fall in here by accident
63990 POKE 60,0: POKE 61,8: REM beginning address ($0800)
63991 POKE 62, PEEK(175): POKE 63, PEEK(176): REM ending address
63992 POKE 66,0: POKE 67,64: REM destination address ($4000)
63993 POKE 768,160: POKE 769,0: POKE 770,76: POKE 771,44: POKE 772,254: CALL 768: REM clear Y reg & call monitor move ($FE2C) to move prgm
63994 POKE 106, PEEK(106) +64 -8: REM reset VARTAB
63995 POKE 108, PEEK(108) +64 -8: REM reset ARYTAB
63996 POKE 110, PEEK(110) +64 -8: REM reset STREND
63997 POKE 176, PEEK(176) +64 -8: REM reset PRGEND
63998 POKE 104,64: REM reset TXTTAB
63999 RUN : REM a sure way to restart